COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "GRAYTS"
C00003 ENDMK
C⊗;
BEGIN "GRAYTS"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
WHILE TRUE DO
   BEGIN
   INTEGER NB;
   PRINT("# OF BITS:"); NB←CVD(INCHWL);
      BEGIN
      INTEGER ARRAY PIC[0:PIXDIM(1024,1024,NB)];
      MAKPIX(1024,1024,NB,PIC[0]);
      WIPE(PIC[0],-1);
      PRINT(CVOS(PIXEL(PIC[0],1,1))," → ");
      GRAY(PIC[0]);
      PRINT(CVOS(PIXEL(PIC[0],1,1))," → ");
      UNGRAY(PIC[0]);
      PRINT(CVOS(PIXEL(PIC[0],1,1)),'15&'12);
      END;
   END;
END "GRAYTS";